home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / stk-3.002 / stk-3 / STk-3.1 / Contrib / STk-wtour / lessons / text2.stk < prev    next >
Encoding:
Text File  |  1995-12-13  |  510 b   |  15 lines
  1. ;;; A basic text widget, with scrollbars
  2.  
  3. (text '.text :yscroll (lambda l (apply .scroll 'set l)))
  4. (scrollbar '.scroll :relief "flat" :command (lambda l (apply .text 'yview l)))
  5.  
  6. (pack .scroll :side "right" :fill "y")
  7. (pack .text   :expand "yes" :fill "both")
  8.  
  9. (.text 'insert "current" 
  10.        "This is a text widget, with an attached scrollbar.\n")
  11. (.text 'insert "current" 
  12.        "\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\nTry scrolling me.")
  13. (.text 'insert "current" "\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\nBoo!")
  14.  
  15.